home *** CD-ROM | disk | FTP | other *** search
/ Horoscope Companion: Leo / Horoscope Companion: Leo.iso / pc / leo / efb.dir / Internal_9.ls < prev    next >
Encoding:
Text File  |  1996-10-08  |  836 b   |  22 lines
  1. on exitFrame
  2.   global gGoodOrBadSelection, gFortuneOne, gFortuneSelectionSprite, gFortuneSelected
  3.   if gGoodOrBadSelection = "bad" then
  4.     set tRandom to 1
  5.     repeat while tRandom = 1
  6.       set tFortuneTwo to string(random(83))
  7.       if tFortuneTwo <> gFortuneOne then
  8.         exit repeat
  9.       end if
  10.     end repeat
  11.     set tFortuneText to the number of member ("text" && tFortuneTwo) of castLib the castLibNum of sprite gFortuneSelectionSprite
  12.   else
  13.     set gFortuneOne to string(random(83))
  14.     set tFortuneText to the number of member ("text" && gFortuneOne) of castLib the castLibNum of sprite gFortuneSelectionSprite
  15.   end if
  16.   set the memberNum of sprite gFortuneSelectionSprite to member tFortuneText
  17.   puppetSprite(gFortuneSelectionSprite, 1)
  18.   set gFortuneSelected to 1
  19.   puppetSound("bing")
  20.   play frame "interactive"
  21. end
  22.